home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.10 Oct 87 / cdev source / AFTest Source < prev    next >
Encoding:
Text File  |  1987-03-18  |  247 b   |  26 lines  |  [TEXT/PJMM]
  1. PROGRAM AFTest;
  2.  
  3.     VAR
  4.         X, F, N : integer;
  5.         SP : SysPPtr;
  6.         E : OSErr;
  7.  
  8. BEGIN
  9.  
  10.     SP := GetSysPPtr;
  11.  
  12.     F := SP^.Font;
  13.  
  14.     x := 2;
  15.  
  16.     CASE X OF
  17.         2 : 
  18.             BEGIN
  19.                 N := NewYork;
  20.                 SP^.Font := N - 1;
  21.                 E := WriteParam;
  22.             END;
  23.         OTHERWISE
  24.     END;
  25.  
  26. END.